   1 .
   2 .C0L0R SELECT0R
   3 .
  10 clear ;&(9)=50;BC=1;FC=1;&(0)=177;&(1)=177;&(2)=131;&(3)=131;NT=0;if TR(1)goto 70
  13 box 0,20,160,15,1;box 0,-20,160,15,1;CY=0;gosub 320;NT=3;gosub 330;NT=0;FC=6;gosub 330;for T=0to 500;next T
  16 for S=42to 16step -1;&(9)=S;next S;BC=8;FC=98;NT=9;MU=55;MU=59;MU=62;MU=67;MU=62;MU=59;NT=35;MU=55;NT=0
  18 for T=0to 999;next T
  20 &(9)=50;&(10)=0;BC=2;FC=4;clear ;CY=36;print " if 0PERATING INSTRUCTI0N";print ;CX=-29;print "IS WANTED
  30 print ;print "     PRESS TRIGGER #1";box -3,-8,12,1,1;print ;print ;CX=-17;print "if N0T";print ;print "     PRESS TRIGGER #2";gosub 340
  40 if TR(1)goto 260
  50 if TR(2)goto 70
  60 goto 40
  70 clear ;&(10)=0;CY=40;gosub 320;CX=-74;CY=32;for B=1to 26;print "*",;next B
  80 box 0,29,157,1,1;box 0,16,151,4,1;box 0,-3,151,3,1;box 0,-23,151,2,1;box 0,-43,151,1,1;box 0,-7,1,73,1
  90 CY=23;print " &(9):";CY=7;print " C0L0R #:";CY=-13;print " INTENSITY #:",;CX=-71;CY=-33;print "C0MPUTER #:
  95 C=0;I=7;D=0;J=0;Q=0;BC=0;FC=7;&(0)=0;&(1)=0;&(2)=7;&(3)=7;gosub 340
 100 K=KN(2)+128;CX=-38;CY=23;print #3,K;if Q=0&(9)=K
 102 if TR(2)&(9)=K;Q=1
 105 if KN(1)>0&(0)=Cmul 8+I;&(1)=Cmul 8+I;&(2)=Dmul 8+J;&(3)=Dmul 8+J;CX=6;CY=23;print "&(0,1)&(2,3)
 110 if KN(1)<0BC=Cmul 8+I;FC=Dmul 8+J;CX=6;CY=23;print "  BC    FC "
 115 CX=18;CY=7;print #2,C,#6,D;CX=18;CY=-13;print #2,I,#6,J;if TR(1)goto 260
 120 CX=12;CY=-33;print #3,Cmul 8+I,#6,Dmul 8+J;C=C+JX(1);D=D+JX(2);if C>31C=31
 130 if D>31D=31
 140 if C<0C=0
 150 if D<0D=0
 160 I=I+JY(1);J=J+JY(2);if I>7I=7
 170 if J>7J=7
 180 if I<0I=0
 190 if J<0J=0
 200 goto 100
 260 &(10)=0;clear ;BC=2;&(9)=50;FC=220;print " JX(1) = BC 0R &(0)+&(1)";print " JX(2) = FC 0R &(2)+&(3)
 270 print " JY(1) = BC-INTENSITY";print " JY(2) = FC-INTENSITY";print " KN(1)<0 = BC/FC C0NTR0L
 280 print " KN(1)>0 = &(0-3) C0NTR0L";print " KN(2)=H0RIZ0NTAL B0UNDARY";print " TR(1)= INSTRUCTI0N RECALL
 285 print " TR(2) = T0 FIX B0UNDARY";box 0,-31,51,1,1;CY=-39;print " EITHER TR STARTS PR0GRAM!";gosub 340
 290 if (TR(1))+(TR(2))goto 70
 300 goto 290
 320 CX=-74;print "C 0 L 0 R  S E L E C T 0 R",;return 
 330 for M=-80to 80step 3;MU=M;box M,0,1,88,3;next M;for M=-27to 27step 3;MU=M;box 0,M,160,1,3;for T=0to 35;next T;next M;return 
 340 &(20)=9;NT=50;MU=75;NT=0;for V=0to 180;&(10)=V;next V;&(20)=0;return 
>:return 
